R Notebook

library(plotly)
library(dplyr)
                            # BPAS

#setwd("C:\\Users\\felip\\Desktop\\R\\Estudying-Plot_ly-in-R\\3d plots")

getwd()

[1] "C:/Users/User/Downloads"

data  <- data <- readxl::read_xlsx ("DADOS_BRUTOS_COVID_LONGA_PREENCHENDO(1).xlsx", sheet = 1)

data

p1 <- plot_ly(data, x = ~BPA_ALTERN_POINTS, y = ~BPA_DIVID_POINTS, z = ~BPA_CONC_POINTS,
              size = ~AGE, sizes = c(5,15), marker = list(symbol = 'circle', sizemode = 'diameter'),
             text = ~paste('ID:', ID,
                            '<br>Grupo:', GROUP,
                            '<br>Idade:', AGE,
                            '<br>Pontuação Moca:', MOCA_VALUE,
                           # '<br>Atenção Alternada:', BPA_ALTERN_POINTS,
                           # '<br>Atenção Concentrada:', BPA_DIVID_POINTS,
                           # '<br>Atenção Dividida:', BPA_CONC_POINTS,
                            '<br>Nível de educação:', EDU_LEVEL)) %>% 
       
     add_markers(color = ~MOCA_VALUE) %>% 
  layout(
    scene = list(
      xaxis = list(title = "Atenção Alternada ",
                   gridcolor = 'rgb(255, 255, 255)',
                   range = c(0, 120),
                   zerolinewidth = 1,
                   ticklen = 5,
                   gridwidth = 2),
    
      yaxis = list(title = "Atenção Concentrada ",
                   gridcolor = 'rgb(255, 255, 255)',
                   range = c(0, 120),
                   zerolinewidth = 1,
                   ticklen = 5,
                   gridwidth = 2),

      zaxis = list(title = "Atenção Dividida ",
                   gridcolor = 'rgb(255, 255, 255)',
                   range = c(0, 120),
                   zerolinewidth = 1,
                   ticklen = 5,
                   gridwidth = 2)),

  paper_bgcolor = 'rgb(243, 243, 243)',
  plot_bgcolor = 'rgb(243, 243, 243)'
)
  
  




p1

Warning: `line.width` does not currently support multiple values.Warning: `line.width` does not currently support multiple values.

p2 <- plot_ly(data, x = ~BPA_ALTERN_POINTS, y = ~BPA_DIVID_POINTS, z = ~BPA_CONC_POINTS,
              size = ~AGE, sizes = c(5,15), marker = list(symbol = 'circle', sizemode = 'diameter'),
              text = ~paste('ID:', ID,
                            '<br>Grupo:', GROUP,
                            '<br>Idade:', AGE,
                            '<br>Pontuação Moca:', MOCA_VALUE,
                           # '<br>Atenção Alternada:', BPA_ALTERN_POINTS,
                           # '<br>Atenção Concentrada:', BPA_DIVID_POINTS,
                           # '<br>Atenção Dividida:', BPA_CONC_POINTS,
                            '<br>Nível de educação:', EDU_LEVEL)) %>% 
       
     add_markers(color = ~GROUP ,colors = c('#636EFA','#EF553B')) %>% 
  layout(
    scene = list(
      xaxis = list(title = "Atenção Alternada ",
                   gridcolor = 'rgb(255, 255, 255)',
                   range = c(0, 120),
                   zerolinecolor = "red",
                   zerolinewidth = 1,
                   ticklen = 5,
                   gridwidth = 2),
    
      yaxis = list(title = "Atenção Concentrada ",
                   gridcolor = 'rgb(255, 255, 255)',
                   range = c(0, 120),
                   zerolinecolor = "red",
                   zerolinewidth = 1,
                   ticklen = 5,
                   gridwidth = 2),

      zaxis = list(title = "Atenção Dividida ",
                   gridcolor = 'rgb(255, 255, 255)',
                   range = c(0, 120),
                   zerolinecolor = "red",
                   zerolinewidth = 1,
                   ticklen = 5,
                   gridwidth = 2)),

  paper_bgcolor = 'rgb(243, 243, 243)',
  plot_bgcolor = 'rgb(243, 243, 243)'
)
  
  




p2

Warning: `line.width` does not currently support multiple values.Warning: `line.width` does not currently support multiple values.Warning: `line.width` does not currently support multiple values.Warning: `line.width` does not currently support multiple values.